home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / dejagnu.lha / dejagnu-1.0.1 / expect / example / rogue.exp < prev    next >
Text File  |  1993-04-22  |  290b  |  18 lines
  1. #!../expect -f
  2. # Look for a GREAT game of rogue.
  3. # Idea is that any game with a Strength of 18 is unusually good.
  4. # Written by Don Libes - March, 1990
  5.  
  6. set timeout -1
  7. while {1} {
  8.     spawn rogue
  9.     expect    "Str: 18" break \
  10.         "Str: 16"
  11.     send "Q"
  12.     expect "quit?"
  13.     send "y"
  14.     close
  15.     wait
  16. }
  17. interact
  18.